unit uIpConf;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
    procedure Button1Click(Sender: TObject);
  private
    FIp: string;
    procedure SetIp(const Value: string);
    { Private declarations }
  public
    //var
    property  Ip : string read FIp write SetIp;
  end;

var
  Form3: TForm3;

implementation

uses
  uPrincpal;

{$R *.dfm}

//procedure TForm3.AdvGlowButton1Click(Sender: TObject);
//begin
//  Ip := Edit1.text;
//  Close;
//end;

procedure TForm3.Button1Click(Sender: TObject);
begin
  IP := Edit1.Text;
  Close;
end;

procedure TForm3.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then

end;

procedure TForm3.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
end;

procedure TForm3.SetIp(const Value: string);
begin
  FIp := Value;
end;

end.
